home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / comms / other / hserv / install < prev    next >
Text File  |  1999-06-14  |  5KB  |  208 lines
  1. ; $VER: Install_hserv 10.3 (16.4.99)
  2.  
  3. (procedure selDest
  4.  (if (exists "hserv:" (noreq))
  5.   (
  6.    (set #old-hserv-assign 1)
  7.    (set #old-hserv-assign-location (expandpath "hserv:"))
  8.    (set #installDir
  9.     (askdir
  10.      (prompt "Select the directory where you want to "
  11.       "install hserv 10.3 . You already have a 'hserv:' "
  12.       "assign on your system, so it is assumed that this "
  13.       "is the location of an older version of hserv that "
  14.       "you want to upgrade.")
  15.      (help "Select the directory where you want to "
  16.       "install hserv 10.3 . Since you already have a 'hserv:' "
  17.       "assign on your system you should probably accept "
  18.       "the default. Remeber hserv no logner needs"
  19.       "hserv: assign to hserv to work")
  20.      (default "hserv:")
  21.     )
  22.    )
  23.   )
  24.   (
  25.    (set #old-hserv-assign 0)
  26.    (if (exists "Work:" (noreq))
  27.     (set #installDir "Work:")
  28.     (set #installDir "SYS:")
  29.    )
  30.    (set #installDir
  31.     (askdir
  32.      (prompt "Select the directory where you want to "
  33.       "install hserv 10.3 . An additional directory "
  34.       "will *NOT* be created at the location you specify.")
  35.      (help "Select the directory where you want to "
  36.       "install hserv 10.3 . All necessary files will be copied "
  37.       "to that directory during installation. A new directory "
  38.       "will *NOT* be created at the location you specify. "
  39.       "This means if you want hserv to be installed in its "
  40.       "own directory then you need to create that directory "
  41.       "yourself first.")
  42.      (default #installDir)
  43.     )
  44.    )
  45.   )
  46.  )
  47. )
  48.  
  49. (procedure copyLibs
  50.  (set #copyLibsHelp "Copying the libraries needed by hserv and hconf")
  51.  (copylib
  52.   (prompt "Installing rxsocket.library to LIBS:" )
  53.   (help #copyLibsHelp)
  54.   (source (tackon #source-dir "LIBS/rxsocket.library"))
  55.   (dest "LIBS:")
  56.   (confirm)
  57.   (optional "askuser" "force")
  58.  )
  59.  (copylib
  60.   (prompt "Installing rmh.library to LIBS:" )
  61.   (help #copyLibsHelp)
  62.   (source (tackon #source-dir "LIBS/rmh.library"))
  63.   (dest "LIBS:")
  64.   (confirm)
  65.   (optional "askuser" "force")
  66.  )
  67.  (copylib
  68.   (prompt "Installing rxwiz.library to LIBS:" )
  69.   (help #copyLibsHelp)
  70.   (source (tackon #source-dir "LIBS/rxwiz.library"))
  71.   (dest "LIBS:")
  72.   (confirm)
  73.   (optional "askuser" "force")
  74.  )
  75.  (copylib
  76.   (prompt "Installing rxasl.library to LIBS:" )
  77.   (help #copyLibsHelp)
  78.   (source (tackon #source-dir "LIBS/rxasl.library"))
  79.   (dest "LIBS:")
  80.   (confirm)
  81.   (optional "askuser" "force")
  82.  )
  83. )
  84.  
  85. (welcome "Welcome to the hserv 10.3 installation.\n")
  86.  
  87. (set @app-name "hserv 10.3")
  88.  
  89. (complete 0)
  90.  
  91. (set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
  92.  (expandpath @icon))
  93. )
  94.  
  95. (selDest)
  96. (set @default-dest #installDir)
  97.  
  98. (complete 20)
  99.  
  100. ; start actual installation
  101.  
  102. ; delete obsolete files from older hserv versions
  103. (delete (tackon #installDir "main/gethostname.rexx") (optional force))
  104. (delete (tackon #installDir "main/errlog.rexx") (optional force))
  105. (delete (tackon #installDir "main/transferlog.rexx") (optional force))
  106. (delete (tackon #installDir "main/readconfig.rexx") (optional force))
  107. (delete (tackon #installDir "main/sorryTermite.rexx") (optional force))
  108. (delete (tackon #installDir "main/checkIP.rexx") (optional force))
  109. (delete (tackon #installDir "main/checkAuth.rexx") (optional force))
  110. (delete (tackon #installDir "main/getIdentify.rexx") (optional force))
  111. (delete (tackon #installDir "main/authfun.rexx") (optional force))
  112. (delete (tackon #installDir "main/checksince.rexx") (optional force))
  113. (delete (tackon #installDir "main/getheadstring.rexx") (optional force))
  114. (delete (tackon #installDir "main/getmime.rexx") (optional force))
  115. (delete (tackon #installDir "main/gmtinetcurrentdate.rexx") (optional force))
  116. (delete (tackon #installDir "main/gmtinetdate.rexx") (optional force))
  117. (delete (tackon #installDir "main/gmtinetfiledate.rexx") (optional force))
  118.  
  119. ;copy libraries
  120. (copyLibs)
  121.  
  122. ;copy rxs
  123. (copylib
  124.  (prompt "Installing rxs to C:")
  125.  (help "This will install rxs to C:")
  126.  (source (tackon #source-dir "c/rxs"))
  127.  (dest "C:")
  128.  (confirm)
  129.  (optional "askuser" "force")
  130. )
  131.  
  132. (complete 30)
  133.  
  134. ;copy root
  135. (copyfiles
  136.  (source (tackon #source-dir "temp"))
  137.  (dest (#installDir))
  138.  (optional force)
  139.  (all)
  140. )
  141.  
  142. ; delete Install files
  143. (delete (tackon #installDir "Install") (optional force))
  144. (delete (tackon #installDir "Install.info") (optional force))
  145.  
  146. (complete 40)
  147.  
  148. ; copy main
  149. (if (not (exists (tackon #installDir "main")))
  150.  (makedir (tackon #installDir "main"))
  151. )
  152. (copyfiles
  153.  (source (tackon #source-dir "main"))
  154.  (dest (tackon #installDir "main"))
  155.  (optional force)
  156.  (all)
  157. )
  158.  
  159. (complete 50)
  160.  
  161. ; copy htdocs
  162. (if (not (exists (tackon #installDir "htdocs")))
  163.  (makedir (tackon #installDir "htdocs"))
  164. )
  165. (copyfiles
  166.  (source (tackon #source-dir "htdocs"))
  167.  (dest (tackon #installDir "htdocs"))
  168.  (optional force)
  169.  (all)
  170. )
  171.  
  172. (complete 60)
  173.  
  174. ; copy conf
  175. (if (not (exists (tackon #installDir "conf")))
  176.  (makedir (tackon #installDir "conf"))
  177. )
  178. (copyfiles
  179.  (source (tackon #source-dir "conf"))
  180.  (dest (tackon #installDir "conf"))
  181.  (optional force)
  182.  (all)
  183. )
  184.  
  185. (complete 70)
  186.  
  187. ; copy cgi-bin
  188. (if (not (exists (tackon #installDir "cgi-bin")))
  189.  (makedir (tackon #installDir "cgi-bin"))
  190. )
  191. (copyfiles
  192.  (source (tackon #source-dir "cgi-bin"))
  193.  (dest (tackon #installDir "cgi-bin"))
  194.  (optional force)
  195.  (all)
  196. )
  197.  
  198. (complete 80)
  199.  
  200. ; copy log
  201. (if (not (exists (tackon #installDir "logs")))
  202.  (makedir (tackon #installDir "log"))
  203. )
  204.  
  205. (complete 90)
  206.  
  207. (complete 100)
  208.